home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
tppcx.arc
/
EGA.INT
< prev
next >
Wrap
Text File
|
1991-01-29
|
1KB
|
30 lines
{══════════════════════════════════════════════════════════════════════════╗
║ MDRUtils/Mark D.Rafn [71530,2307] ║
║ Rt1 Box138A ║
║ Two Harbors, MN 55616 ║
║ 218-834-5154 ║
║ ║
║ Unit for programming the EGA graphics adapter. ║
║ Must be in graphics mode. ║
╚══════════════════════════════════════════════════════════════════════════}
{$D-,R-,S-}
unit EGA;
interface
uses Graph;
const
EGACard: boolean = false;
VGACard: boolean = false;
EGA_Pal: PaletteType = (
Size: 16;
Colors: (0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15) );
procedure EGA_SetPlane_Write( plane: byte );
procedure EGA_SetPlane_Read( Plane: byte );
procedure EGA_Reset_Write;
procedure EGA_Reset_Read;
procedure EGA_ResetPalette;
procedure EGA_SetRGBPalette( cn, red, green, blue: integer );
implementation